#!  
$_ = 'the quick brown fox jumped over the lazy dog';
print "---------simple list slice---------\n";
($fox,$dog)=(split /\s/)[3,8];
print $fox,"\n",$dog,"\n";

print "------min and max---------\n";
# -1 means the last element
($min,$max) = (sort split/\s/)[0,-1];
print $min,"\n",$max,"\n";
